home *** CD-ROM | disk | FTP | other *** search
/ The Best of MacTutor - S…e Code for Volumes 1 to 5 / The Best of MacTutor - Source Code for Volume 1-5 (Wayzata Technology)(6031)(1990).bin / Source Code / #48 (Sep 89) / Zoundz Source / InitTheMenus.Pas < prev    next >
Pascal/Delphi Source File  |  1989-05-08  |  756b  |  37 lines
  1. unit InitTheMenus;
  2.  
  3. interface
  4.     uses
  5.         PrintTraps, Sound, MyGlobals;
  6.  
  7.     procedure Init_My_Menus;            {Initialize the menus}
  8.  
  9. implementation
  10.  
  11.     procedure Init_My_Menus;            {Initialize the menus}
  12.         const
  13.             Menu1 = 1001;                   {Menu resource ID}
  14.             Menu2 = 1002;                   {Menu resource ID}
  15.             Menu3 = 1003;                   {Menu resource ID}
  16.             Menu4 = 1004;
  17.     begin                               {Start of Init_My_Menus}
  18.         ClearMenuBar;                   {Clear any old menu bars}
  19.  
  20.         AppleMenu := GetMenu(Menu1);
  21.         InsertMenu(AppleMenu, 0);
  22.         AddResMenu(AppleMenu, 'DRVR');
  23.  
  24.         M_File := GetMenu(Menu2);
  25.         InsertMenu(M_File, 0);
  26.  
  27.         M_Edit := GetMenu(Menu3);
  28.         InsertMenu(M_Edit, 0);
  29.  
  30.         M_Extend := GetMenu(Menu4);
  31.         InsertMenu(M_Extend, 0);
  32.  
  33.         DrawMenuBar;
  34.  
  35.     end;   {End of procedure Init_My_Menus}
  36.  
  37. end.